home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 March
/
64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64
/
grafik 24
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
450b
|
18 lines
10 open 1,4,4
20 read a
30 if a=-1 then 60
40 print#1,chr$(a);
50 goto 20
60 print#1,chr$(10) : rem lf + cr
70 close 1 : end
80 data 27, 42, 39, 24, 0, 3, 192, 6
90 data 6, 33, 198, 12, 19, 166, 9, 141
100 data 134, 27, 29, 198, 27, 108, 230, 27
110 data 140, 70, 30, 12, 134, 12, 13, 6
120 data 7, 255, 198, 15, 255, 230, 16, 0
130 data 70, 0, 0, 134, 0, 0, 6, 0
140 data 0, 6, 0, 0, 6, 4, 0, 6
150 data 12, 0, 134, 31, 255, 198, 15, 255
160 data 230, 0, 0, 198, 0, 0, 134, 0
170 data 1, 6, 0, 0, 6, -1